program foo
implicit none
    integer, parameter :: dp = kind(0d0)
    real(kind=dp), parameter :: x = 9.3_dp
    real(kind=dp), parameter :: y = 9.3  ! 精度低
    real(dp), parameter :: onethird = 1.0_dp / 3.0_dp
    print *, precision(x), x
    print *, precision(y), y
    print *, precision(onethird), onethird
end program